home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / DBASE5 / SAMPLES.ZIP / UNIDACTV.ASM < prev    next >
Assembly Source File  |  1994-10-12  |  1KB  |  30 lines
  1. ;===============================================================
  2. ; Devuelve la unidad activa como variable de caracteres.
  3. ;
  4. ;    uso:    CALL Unidactv WITH <Variable de memoria>
  5. ;
  6. ;===============================================================
  7. TITLE UNIDACTV -- Devuelve la unidad por omisión
  8.  
  9. _PROG     SEGMENT  BYTE
  10.           ASSUME   CS:_PROG
  11. ;
  12. GETPATH   PROC     FAR      ; Obliga a una rutina FAR. 
  13. ;
  14.           MOV      AX,[BX]  ; Busca valor nulo. (Fin de variable.)
  15.           CMP      AX,0     ; ¿La variable tiene una longitud válida?
  16.           JE       Error    ; No, salir.
  17. ;
  18.           MOV      SI,BX    ; Carga la variable de offset en SI.
  19.           MOV      AH,19h   ; Trae la unidad activa.
  20.           INT      21h      ; La unidad se obtiene en AL.
  21.                             ; (0 = A:, 1 = B:, etc.)
  22.           ADD      AL,'A'   ; 41h = 'A.'
  23.           MOV      [SI],AL
  24. Error:    RET               ; Vuelve a dBASE.
  25. ;
  26. GETPATH   ENDP
  27. ;
  28. _PROG     ENDS
  29.           END
  30.